Public Class FeatureComponent

    Private Windows_Arraylist As ArrayList
    Private Component_ID As String

    Public Function DrawFeatureCom(ByVal OneImage As Image) As Image
        Dim N As Integer = Me.Windows_Arraylist.Count
        For i As Integer = 0 To N - 1
            Dim w As FeatureWindows
            w = Me.Windows_Arraylist.Item(i)
            'If w.boolInteractive Then
            '    w.PaintInteractive(OneImage)
            'Else
            '    w.PaintOrignal(OneImage)
            'End If
        Next
        'dim 
        Return OneImage
    End Function
    Public Property WindowsArraylist() As ArrayList
        Get
            Return Windows_Arraylist
        End Get
        Set(ByVal value As ArrayList)
            Windows_Arraylist = value
        End Set
    End Property

    Public Property ComponentID() As String
        Get
            Return Component_ID
        End Get
        Set(ByVal value As String)
            Component_ID = value
        End Set
    End Property

End Class
